(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=Achille
Title=Moviecovers
Description=Importation des informations et de l'image de Moviecovers
Site=http://www.moviecovers.com
Language=FR
Version=2.0
Requires=3.5.0
Comments=Un peu arrangé par Antoine Potten pour AMC 3.5
License=This program is free software; you can redistribute it and/or modify it under the  terms of the GNU General Public License as published by the Free Software Foundation;  either version 2 of the License, or (at your option) any later version. |
GetInfo=1

[Options]
GrandeImage=1|1|0=Prend la petite image|1=Prend la grande image

***************************************************)

program MovieCovers;

var
  MovieName: string;
  LineNr: Integer;
  
uses
  StringUtils1;

procedure AnalyzePage(Address: string);
var
  Line, Value: string;
  LastLine, BeginPos, EndPos, TreeCount: Integer;
  Page: TStringList;
begin
  Line := GetPage(Address);
  if Pos('il n''y a pas de film correspondant &agrave; ce(s) crit&egrave;re(s) dans <B>MOVIECOVERS</B>', Line) > 0 then
  begin
    ShowMessage('Aucun film trouvé');
    Exit;
  end;
  PickTreeClear;
  BeginPos := Pos('<FONT size="+1" color="#000000"><B>', Line);
  Delete(Line, 1, BeginPos - 1);
  EndPos := Pos('</FONT>', Line);
  Value := Copy(Line, 1, EndPos - 1);
  HTMLRemoveTags(Value);
  HTMLDecode(Value);
  BeginPos := Pos(' <TABLE border=0 cellspacing=0 cellpadding=6 align="center" width="100%">', Line) + 1;
  Delete(Line, 1, BeginPos);
  EndPos := Pos(' <TABLE border=0 cellspacing=0 cellpadding=6 align="center" width="100%">', Line) + 1;
  Delete(Line, EndPos, Length(Line));
  Page := TStringList.Create;
  Page.Text := Line;
  Value := Trim(Value) + ' : ' + Trim(Page.GetString(2));
  PickTreeAdd(Value, '');
  TreeCount := 0;
  for LineNr := 3 to Page.Count-1 do
  begin
    Line := Page.GetString(LineNr);
    if Pos('<LI><A', Line) > 0 then
    begin
      BeginPos := Pos('/film/titre', Line);
      EndPos := Pos('">', Line);
      Value := 'http://www.moviecovers.com' + Copy(Line, BeginPos, EndPos - BeginPos);
      HTMLRemoveTags(Line);
      PickTreeAdd(Trim(Line), Value);
      TreeCount := TreeCount + 1;
    end;
  end;
  if TreeCount = 1 then
    resume(Value)
  else
  if PickTreeExec(Address) then
    resume(Address);
  Page.Free;
end;

function TwoLinesAfter(Pattern: string; Page: TStringList): string;
begin
  LineNr := FindLine(Pattern, Page, LineNr);
  Result := Page.GetString(LineNr+2);
  HTMLRemoveTags(Result);
  HTMLDecode(Result);
  Result := Trim(Result);
end;

procedure resume (Adress: string);
var
  nouvelleadr, idcm, dure : string;
  lestx: TStringList;
  BeginPos, EndPos, IntValue: Integer;
begin
  SetField(fieldURL, Adress);
  nouvelleadr:=stringreplace(Adress,'http://www.moviecovers.com/film/titre_','');
  idcm:=stringreplace(nouvelleadr,'.html','');
  idcm := urldecode(idcm);
  Adress:='http://www.moviecovers.com/getfilm.html' ;
  nouvelleadr:='idmc=' + idcm;
  lestx := TStringList.Create;
  lestx.text:= postpage(Adress,nouvelleadr);
  Adress:=lestx.getstring(5);
  SetField(fieldTranslatedTitle, lestx.getstring(0));
  SetField(fieldDirector,lestx.getstring(1));
  SetField(fieldYear, lestx.getstring(2));
  SetField(fieldCountry, lestx.getstring(3));
  SetField(fieldCategory, lestx.getstring(4));
  dure:= lestx.getstring(5);
  BeginPos := Pos('H', dure);
  IntValue := (StrToInt(Copy(dure, 1, BeginPos - 1), 0) * 60) + (StrToInt(Copy(dure, BeginPos + 1, Length(dure)), 0));
  SetField(fieldLength, IntToStr(IntValue));
  SetField(fieldActors, StringReplace(lestx.getstring(6), ';', ', '));
  SetField(fieldDescription, lestx.getstring(7));
  SetField(fieldProducer, lestx.getstring(8));
  SetField(fieldOriginalTitle, lestx.getstring(9));
  if GetField(fieldOriginalTitle) = '' then
      SetField(fieldOriginalTitle, GetField(fieldTranslatedTitle));
  if GetOption('GrandeImage') = 1 then
    GetLargePicture(idcm)
  else
    GetSmallPicture(idcm);
end;

procedure GetLargePicture(Address: string);
begin
  Address := URLEncode(Address);
  GetPicture('http://www.moviecovers.com/getjpg.html/' + Address);
end;

procedure GetSmallPicture(Address: string);
begin
  Address := URLEncode(Address);
  GetPicture('http://www.moviecovers.com/DATA/thumbs/films-' + LowerCase(Copy(Address, 1, 1)) + '/' + Address + '.jpg');
end;

begin
  if CheckVersion(3,5,0) then
  begin
    MovieName := GetField(fieldTranslatedTitle);
    if MovieName = '' then
      MovieName := GetField(fieldOriginalTitle);
    if Input('MovieCovers', 'Entrez le titre du film :', MovieName) then
    begin
      AnalyzePage('http://www.moviecovers.com/multicrit.html?titre=' + UrlEncode(MovieName) + '&slow=1&listes=1');
    end;
  end else
    ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.5.0)');
end.program NewScript;
begin
end.